Public Class MarcasComerciales
    Dim RNMarCom As New ADCono.MarcasComercial

    Public Function GenerarMarcaComercial(ByVal ParamArray Dat())
        Dim DS As New DataSet
        DS = RNMarCom.GenerarMarcaComercial(Dat(0), Dat(1), Dat(2), Dat(3))
        Return DS
    End Function

    Public Function ModificarMarcaComercial(ByVal ParamArray Dat())
        Dim DS As New DataSet
        DS = RNMarCom.ModificarMarcaComercial(Dat(0), Dat(1), Dat(2), Dat(3), Dat(4))
        Return DS
    End Function

    Public Function ObtenerMarcaComercial(Optional ByVal CodMC As Integer = 0, Optional ByVal NomIns As String = "", _
                                          Optional ByVal Tip As String = "")
        Dim DS As New DataSet
        DS = RNMarCom.ObtenerMarcasComerciales(CodMC, NomIns, Tip)
        Return DS
    End Function
End Class
